0 REM "ARROW"
1 POKE54277,190
2 POKE54278,248
3 POKE54276,17
4 POKE53280,0
5 POKE53281,0
100 PRINT"[147] ARROW [146]    JIM BUTTERFIELD"
101 PRINT" 07/15/83 [146]    ADAPTED TO THE C-64
102 [153]" 07/15/83 WAIT    ADDED JOYSTICK OPTION
106 PRINT"                RICK CRONE
107 [153]"                111 GREENBRIAR LN.
108 PRINT"                JACKSON TN. 38305
109 [153]"                (901) 668-8958
110 PRINT
120 PRINT"GUIDE THE MOVING 'SNAKE' WITH KEYS:"
130 PRINT" 2(DOWN), 4(LEFT), 6(RIGHT), 8(UP)"
140 PRINT"DON'T HIT THE BOUNDARY (OR YOURSELF);"
150 PRINT"..TRY TO HIT THE BOXES FOR POINTS."
160 PRINT"YOU HAVE 60 SECONDS OF PLAY. GOOD LUCK!"
170 PRINT"      J JOYSTICK[146]       K KEYBOARD
180 [161]Z$:[139]Z$[178]""[137]180
181 [139]Z$[178]"J"[167]PC[178]1:[137]190:[143] PC IS PROCESS CODE FOR SUBROUTINE SELECTION
182 [139]Z$[178]"K"[167]PC[178]0:[137]190
183 [137]180
190 [134]P(255),D(3),V(8),H(8),T(8),R(8):K[178].1
200 D(0)[178]22:D(1)[178]60:D(2)[178]62:D(3)[178]30
210 T9[178]1024:T6[178]3599:[153][199](14):[153][199](8)
220 M1[178]54296:M2[178]54273:M3[178]52272
230 [151]53281,13:[153]"RETURNLOAD   SCORE: 0":[153]"A":[151]53281,80
240 [129]J[178]0[164]81:[139][194](T9[170]J)[179][177]1[167][130]J
250 L[178]J:[129]J[178]T9[170]L[164]T9[170]2[172]L[171]1:[151]J,81:[151]J[170]23[172]L,81:[130]J
260 [129]J[178]T9[170]2[172]L[164]T9[170]24[172]L[169]L:[151]J,81:[151]J[170]L[171]1,81:[130]
270 V[178]5:H[178]5:V1[178]0:H1[178]1:P2[178]10:D1[178]2
280 TI$[178]"000000"
290 [153]"";[201](TI$,2):[139]TI[177]T6[137]620
300 [139]PC[178]0[167][161]Z$:[139]Z$[178]""[137]330
301 [139]PC[178]0[167]310
302 S1[178][194](56321)[175]15
303 [139]S1[178]14[167]Z$[178]"8"
304 [139]S1[178]07[167]Z$[178]"6"
305 [139]S1[178]11[167]Z$[178]"4"
306 [139]S1[178]13[167]Z$[178]"2"
307 [139]S1[178]15[167]330
310 Z[178]([198](Z$)[171]50)[173]2:[139]Z[179][177][181](Z)[176]Z[179]0[176]Z[177]3[137]330
320 D1[178]Z:D[178]Z[171]1.5:V1[178][181]([182](D))[172][180](D):H1[178][180](D)[171]V1
330 V[178]V[171]V1:H[178]H[170]H1:P[178]T9[170]V[172]L[170]H
350 P9[178][194](P):[151]M1,15:[151]M3,29[172]D1[170]80:[151]M2,15
360 R6[178]R7:R7[178]R7[170]1:[139]R7[177]P2[167]R7[178]0
370 P1[178]P(R7):P(R7)[178]P:[151]M1,0:[139]P1[179][177]0[167][151]P1,32
380 [151]P,D(D1):P1[178]P(R6):[139]P1[179][177]0[167][151]P1,81
390 [139]P9[179][177]32[137]540
400 [139][187](1)[177]K[137]290
410 V%[178][187](1)[172]L[173]10:P9[178]86[170]V%:V9[178]V(V%):[139]V9[177]0[137]591
470 V2[178][181]([187](1)[172]20)[170]3:H2[178][181]([187](1)[172](L[171]4))[170]2
480 [129]V3[178]V2[171]1[164]V2[170]1:P3[178]V3[172]L[170]T9:[129]H3[178]H2[171]1[164]H2[170]1:[139][194](P3[170]H3)[179][177]32[137]470
490 [130]H3,V3:V(V%)[178]V2:H(V%)[178]H2
500 [129]V3[178]V2[171]1[164]V2[170]1:P3[178]V3[172]L[170]T9:[129]H3[178]H2[171]1[164]H2[170]1
510 [151]M1,15:[151]M2,90:[151]M3,90
520 [151]P3[170]H3,P9:[151]M1,0
530 [130]H3,V3:T[178]9[172][187](1):P8[178]V2[172]L[170]H2[170]T9:[151]P8,49[170]T:T(V%)[178]T:R(V%)[178]P8:[137]290
540 V%[178]P9[171]86:[139]V%[179]0[137]600
550 P8[178]R(V%):T[178]T(V%):P2[178]P2[170]T:T$[178]TI$
560 T[178]T[171]1:S[178]S[170]1:[151]P8,T[170]49:[151]M1,15:[151]M2,15
570 [153]"";S
580 [129]J[178]100[164]30[169][171]1:[151]M3,J:[151]M2,J:[130]:[151]M1,0:[139]T[177][178]0[137]560
590 P2[178]P2[170]1:TI$[178]T$:V9[178]V(V%)
591 [129]V3[178]V9[171]1[164]V9[170]1:P3[178]V3[172]L[170]T9:H9[178]H(V%)[170]P3:[129]H3[178]H9[171]1[164]H9[170]1
594 [151]H3,32:[130]H3,V3:V(V%)[178]0:[151]R(V%),32:[137]290
600 [151]M1,15:[151]M2,15:[151]M3,200:[129]J[178]1[164]1000:[130]:[151]M1,0
620 [153]"ANOTHER GAME?WAIT   CMDCMDCMD";
630 [161]Z$:[139]Z$[178]""[137]630
640 [139]Z$[178]"Y"[167][153]"LOAD":[156]:[137]170
650 [139]Z$[179][177]"N"[137]630
660 [153]"LOAD";